home *** CD-ROM | disk | FTP | other *** search
/ MacFormat España 20 / macformat_20.iso / mac / Shareware / Desarrolladores / Sprite Animation Toolkit 2.3.8 / Tutorial ƒ / Assignment4.c < prev    next >
C/C++ Source or Header  |  1995-08-09  |  625b  |  38 lines
  1. // Assignment 4
  2.  
  3. #include "SAT.h"
  4.  
  5. SpritePtr ignore;
  6. short direction;
  7.  
  8. pascal void HandleSprite (SpritePtr me)
  9. {
  10.     me->position.h = me->position.h + direction;
  11.     if (me->position.h < 0)
  12.         direction = 1;
  13.     if (me->position.h > 200)
  14.         direction = -1;
  15. }
  16.  
  17. pascal void SetupSprite (SpritePtr me)
  18. {
  19.     me->task = &HandleSprite;
  20.     me->face = SATGetFace(128);
  21.     direction = 1;
  22. }
  23.  
  24. main()
  25. {
  26.     short kTicksPerFrame = 2;
  27.     long t;
  28.     
  29.     SATInitToolbox();
  30.     SATInit(128, 129, 478, 302);
  31.     ignore = SATNewSprite(0, 200, 200, &SetupSprite);
  32.     do
  33.     {
  34.         t = TickCount();
  35.         SATRun(true);
  36.         while ((TickCount () - t) < kTicksPerFrame);
  37.     } while (! Button());
  38. }